home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / archiver / zoossr06.zoo / zooshell.c < prev    next >
C/C++ Source or Header  |  1991-09-04  |  15KB  |  625 lines
  1. /*
  2.  *    ZOOSHELL.C
  3.  *    A GEM-based shell for painlessly invoking the ZOO archiver
  4.  *    Author: Steve Yelvington
  5.  *        Internet <steve@thelake.mn.org>
  6.  *        GEnie S.YELVINGTO2
  7.  *    This program is hereby released to the public domain.
  8.  *    You are solely responsible for any use you make of it.
  9.  */
  10.  
  11. #define VERSION    "ZOOSHELL Version 0.6 beta"
  12.  
  13. #ifdef APSTART    /* If using APSTART.O instead of DSTART.O, */
  14.         /* some kludgery to get around peculiarities of dLibs */
  15. #define NULL (void *)(0)
  16. #define exit Pterm
  17. #define FALSE    (0)
  18. #define TRUE    (!FALSE)
  19. #define ERROR    (-1)
  20. int    errno;
  21. #else
  22. #include <stdio.h>
  23. #endif
  24.  
  25. #include <osbind.h>    /* Atari operating system bindings */
  26. #include <gemfast.h>    /* you may prefer gemdefs.h and obdefs.h */
  27. #include <macros.h>    /* abs, loword/hiword, etc. */
  28. #include <limits.h>    /* standard limits such as PATHSIZ */
  29. #include <string.h>    /* values returned by string functions */
  30.  
  31. #include "zooshell.h"     /* file generated by resource editor */
  32.  
  33. #define RESOURCE_FILE    "zooshell.rsc"
  34.  
  35. #define STDOUT        1    /* GEMDOS handle */
  36. #define STDPRN        3    /* GEMDOS handle */
  37. #define CON        2    /* BIOS   device number */
  38.  
  39. OBJECT *menubar;    /* pointer for resource menu */
  40. char cwd[PATHSIZE];    /* current working directory */
  41. char zoottp[PATHSIZE];    /* name of ZOO program */
  42. int m_hidden;        /* mouse hidden flag */
  43. char mycmd[256];    /* command buffer for launching ZOO */
  44. char myargs[256];    /* argument buffer for launching ZOO */
  45. int confh,outfh;    /* file handles for redirection */
  46.  
  47. extern char *h_ex[],     /* help screens from zoohelp.c */
  48.     *h_rest[], *h_view[], 
  49.     *h_spec[], *h_buttons[];
  50.  
  51. /*
  52.  * Function: g_clrscr()
  53.  * Returns: void
  54.  * Description: Instructs GEM to redraw the workspace 
  55.  */
  56. void g_clrscr()
  57.     {
  58.     int x,y,w,h;
  59.     wind_get(0,WF_FULLXYWH,&x,&y,&w,&h);  /* get desktop dimensions */
  60.     form_dial(FMD_START,1,1,1,1,x,y,w,h); /* this may be unnecessary */
  61.     form_dial(FMD_FINISH,1,1,1,1,x,y,w,h); /* generate redraw msg */
  62.     }
  63.  
  64.  
  65. /*
  66.  * Function: hide_mouse
  67.  * Returns: void
  68.  * Description: hide the mouse and set the m_hidden flag
  69.  */
  70. void hide_mouse()
  71.     {
  72.     if (m_hidden) return;
  73.     graf_mouse(M_OFF,NULL);
  74.     m_hidden = TRUE;
  75.     }
  76.  
  77. /*
  78.  * Function: show_mouse
  79.  * Returns: void
  80.  * Description: if the mouse is hidden, show the mouse and set the flag
  81.  */
  82. void show_mouse()
  83.     {
  84.     if (m_hidden)
  85.         {
  86.         graf_mouse(M_ON,NULL);
  87.         m_hidden = FALSE;
  88.         }
  89.     }
  90.  
  91. /*
  92.  * Function: show_about()
  93.  * Returns: void
  94.  * Description: Shows the ABOUTBOX until 4-second timeout or mouse click
  95.  * Note: This function uses the GEMFAST evnx_multi function, which is
  96.  *       available in C source code if you don't have GEMFAST.
  97.  */
  98. void show_about()
  99.     {
  100.     OBJECT *aboutbox;
  101.     XMULTI xm;
  102.     int x,y,w,h;
  103.     static long delay;
  104.     delay = 4*1000L;
  105.     rsrc_gaddr(0,ABOUTBOX, &aboutbox);
  106.     hide_mouse();
  107.     form_center(aboutbox, &x, &y, &w, &h);
  108.     form_dial(FMD_START,1,1,1,1,x,y,w,h);
  109.     form_dial(FMD_GROW,1,1,1,1,x,y,w,h);
  110.     objc_draw(aboutbox, 0, 10, x, y, w, h);
  111.     show_mouse();
  112.     /* now wait for timer, keyboard or button activity */
  113.     xm.mflags = MU_TIMER|MU_KEYBD|MU_BUTTON;
  114.         xm.mtlocount = loword(delay);
  115.         xm.mthicount = hiword(delay);
  116.         xm.mbclicks = 1;            /* wait for single  */
  117.         xm.mbmask   = 1;            /* click of left    */
  118.         xm.mbstate  = 1;            /* button           */
  119.     evnx_multi(&xm);
  120.     form_dial(FMD_SHRINK,1,1,1,1,x,y,w,h);
  121.     form_dial(FMD_FINISH,1,1,1,1,x,y,w,h);
  122.     }
  123.  
  124.  
  125. /*
  126.  * Function: do_dialog
  127.  * Returns: index of exit object
  128.  * Description: This smart wrapper for form_dial handles centering, etc.
  129.  */
  130. int do_dialog(ind)
  131.     int ind;
  132.     {
  133.     OBJECT *form;
  134.     int exit_obj;
  135.     int x,y,w,h;
  136.     rsrc_gaddr(0,ind,&form);
  137.     hide_mouse();
  138.     form_center(form, &x, &y, &w, &h);
  139.     form_dial(FMD_START,1,1,1,1,x,y,w,h);
  140.     form_dial(FMD_GROW,1,1,1,1,x,y,w,h);
  141.     objc_draw(form, 0, 10, x, y, w, h);
  142.     show_mouse();
  143.     exit_obj = form_do(form, 0);
  144.     hide_mouse();
  145.     form_dial(FMD_SHRINK,1,1,1,1,x,y,w,h);
  146.     form_dial(FMD_FINISH,1,1,1,1,x,y,w,h);
  147.     form[exit_obj].ob_state = NORMAL;
  148.     show_mouse();
  149.     return(exit_obj);
  150.     }
  151.  
  152.  
  153. /*
  154.  * Function: forcedir
  155.  * Returns: void
  156.  * Description: combines set-drive and set-path functions into one call
  157.  */
  158. void forcedir(d)
  159.     char *d;
  160.     {
  161.     Dsetdrv(((int)d[0]) - 'A');
  162.     Dsetpath(&d[2]);
  163.     }
  164.  
  165. /*
  166.  * Function: change_dir
  167.  * Returns: void
  168.  * Description: Prompt user with a file selector and change directories
  169.  *              as appropriate
  170.  */
  171. void change_dir()
  172.     {
  173.     char file[14];
  174.     int status;
  175.     char *p;
  176.     file[0] = '\0';
  177.     getcwd(cwd,PATHSIZE);
  178.     strupr(cwd);
  179.     status = fsel_exinput(cwd,file, &status, "Select directory for output");
  180.     if (p=strrchr(cwd,'\\'))
  181.         *p = '\0';
  182.     if (status)
  183.         forcedir(cwd);
  184.     }
  185.  
  186. /*
  187.  * Function: fsel
  188.  * Returns: 0 if [CANCEL], 1 if [OK]
  189.  * Description:  Display the GEM file selector, including a prompt if
  190.  *               one is supplied. The path and default filename will
  191.  *               be shown, if supplied. Convert the user's input into
  192.  *               a complete filename and copy the result into the
  193.  *               supplied buffer.
  194.  *
  195.  * Side effects: fsel remembers the previous values of inpath and default
  196.  *               filename and uses them if those args are NULL
  197.  */
  198.  
  199. int fsel(prompt, path, insel, filename)
  200.     char *prompt, /* message to user, or NULL */
  201.          *path,  /* initial path, or NULL */
  202.              *insel, /* initial filename, or NULL */
  203.              *filename;    /* 128-byte buffer for full selected name */
  204.     {
  205.     static char xpath[128], xinsel[14];
  206.     char *p;
  207.     int button;
  208.     if (!prompt)
  209.         prompt = "Please choose a file";
  210.     if (!path)
  211.         {
  212.         xpath[0] = Dgetdrv() + 'A';
  213.         xpath[1] = ':';
  214.         Dgetpath(&xpath[2],(int)(xpath[0]-'A'+1));
  215.         strcat(xpath,"\\*.*");
  216.         path = xpath;
  217.         }
  218.     if (!strchr(path,':'))    /* nonabsolute path */
  219.         {
  220.         xpath[0] = Dgetdrv() + 'A';
  221.         xpath[1] = ':';
  222.         Dgetpath(&xpath[2],(int)(xpath[0]-'A'+1));
  223.         strcat(xpath,"\\");
  224.         strcat(xpath,path);
  225.         }
  226.     else if (path != xpath)
  227.         strcpy(xpath,path);
  228.     if (insel)
  229.         strcpy(xinsel,insel);
  230.     fsel_exinput(xpath,xinsel,&button,prompt);        
  231.     if (!button)
  232.         return button;
  233.     strcpy(filename,xpath);
  234.     if (p = strrchr(filename,'\\'))
  235.         *++p = '\0';
  236.     else if (p = strrchr(filename,':'))
  237.         *++p = '\0';
  238.     else if (p = strchr(filename,'*'))
  239.         *p = '\0';
  240.     else 
  241.         {
  242.         strcat(filename,"\\");
  243.         p = filename + strlen(filename);
  244.         }
  245.     strcpy(p,xinsel);
  246.     return button;
  247.     }
  248.  
  249. /*
  250.  * Function: Bconws
  251.  * Returns: void
  252.  * Description: Like Cconws, but to redirection-proof BIOS device
  253.  */
  254. void Bconws(dev,s)
  255.     int dev;
  256.     char *s;
  257.     {
  258.     while (*s)
  259.         Bconout(dev,*s++);
  260.     }
  261.  
  262. /*
  263.  * Function: xparse_args
  264.  * Returns: void
  265.  * Description: Parse a command line into an argv array
  266.  *              (modified from dlibs)
  267.  */
  268. void xparse_args(cmdln, argv)
  269.     char *cmdln;
  270.     register char *argv[];
  271.     {
  272.     register char *p;
  273.     static char delim[] = " \t\r\n";
  274.     if(p = strtok(cmdln, delim))
  275.         {
  276.         do
  277.             {
  278.             *argv++ = p;
  279.             }
  280.             while(p = strtok(NULL, delim));
  281.         }
  282.     }
  283.  
  284. /*
  285.  * Function: xsystem
  286.  * Returns:  the value returned by a child process
  287.  * Description: this is a simple, system()-like interface to
  288.  *              invoke fork/wait in a palatable fashion. It's
  289.  *              modified from dlibs; basically this is system()
  290.  *              without the _shell_p support. I don't want to
  291.  *              pass commands to a shell because I don't want
  292.  *              to give it the opportunity to mangle the args
  293.  *              ... this lets me control exactly what ZOO sees.
  294.  */
  295. int xsystem(command)
  296.     register char *command;
  297.     {
  298.     register char *p;
  299.     char rv[2];
  300.     char cmdln[1024];
  301.     char *args[64];
  302.     if(!command)
  303.         return(ERROR);
  304.     strcpy(cmdln, command);
  305.     xparse_args(cmdln, args);
  306.     p = args[0];
  307.     forkvpe(p, args, NULL);
  308.     wait(rv);
  309.     return((rv[1] == 0) ? rv[0] : rv[1]);
  310.     }
  311.  
  312. /*
  313.  * Function: exzoo
  314.  * Returns: void
  315.  * Description: Prompt the user for a ZOO file name. Then, if flag is
  316.  *              true, prompt the user for a file to process. Build
  317.  *              a command line including the cmd argument, an